home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 001-025 / scopedisk8 / superlib / libsrc.arc / closelibs.c < prev    next >
C/C++ Source or Header  |  1987-12-22  |  399b  |  28 lines
  1.  
  2. /*
  3.  * CLOSELIBS(mask)
  4.  *
  5.  *Close the indicated libraries.Does not close libraries which
  6.  *have not been openned.
  7.  */
  8.  
  9. #include "xmisc.h"
  10.  
  11. extern struct OLI strvar[];
  12.  
  13. closelibs(mask)
  14. register unsigned short mask;
  15. {
  16.     register struct OLI *sv;
  17.  
  18.     for (sv = &strvar[0]; mask && sv->name; mask >>= 1, ++sv){
  19. if ((mask & 1) && *sv->var) {
  20.     CloseLibrary(*sv->var);
  21.     *sv->var = 0L;
  22. }
  23.     }
  24. }
  25.  
  26.  
  27.  
  28.